view release on metacpan or  search on metacpan

demo/demo_DWIM.pl  view on Meta::CPAN

print "In the pre-DWIM light...\n";

use Acme::DWIM;

my ($x) = +("Hullo " x 3 . "world" & "~" x 30) =~ /(.*)/;
$x =~ tr/tnv/uow/;
print $x;