$string =~ s/(\w+)$/print $1/e;