in reply to Remove from character to end of line

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

~Particle *accelerates*