Select Code to Download

my $string = 'Monk';
exit unless $string =~ /(o)/;

...

my @letters = split( //, $string );
warn join('-', @letters), "\n";