while (<>) { s/\W*\/+.*//; print reverse $_ }