my( $answer ) = ( $data =~ m!^(.+?)/!);

##</code><code>##

.