in reply to Remove from character to end of line
my( $answer ) = ( $data =~ m!^(.+?)/!); [download]
~Particle *accelerates*