Select Code to Download

my @delete_list = map {s/^delete_check_//; $_} (grep /^delete_check_/,
+ keys %session);

my $str = "Helloooo, nurse!"
my ($greeting, $recipient) = $str =~ m/^(\w+),\s+(\w+)/;
print "Greeting: '$greeting', Recipient: '$recipient'\n";