print scalar( reverse substr( $_, 0, rindex($_," //") ) ), "\n" while (<>);

##</code><code>##

print map { scalar reverse(substr( $_, 0, rindex($_," //") )), "\n" } <>;