print reverse($1) . "\n"
    if reverse($string) =~ m/(\d{3} :txet)/;

##</code><code>##

m/(?<!\d)(\d{3} :txet)/