$val =~ /(.*)/ and $val = $1;

##</code><code>##

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