$val = ( $val =~ /(.*)/ )[0];