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

##</code><code>##

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