my $txt = ‘I am learning Perl’; $txt =~ /(\w+)$/; print $1;