Select Code to Download

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

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