use Acme::EyeDrops qw(sightly); print sightly( { SourceString => "Just another Perl hacker,", Print => 1, Regex => 1 } );