Select Code to Download

#!/usr/bin/perl
use strict;
...
tr/// just considers its input to (mostly) be a simple character class
+.
Much easier to deal with and, thus, much faster.
=cut

#!/usr/bin/perl
use strict;
...
my $string_formatted = test_subroutine($string);

print $string_formatted . "\n"; # asd efg