## Either
substr( $x, 0, index( $x, $char ), '');
## or
$x =~ s[(^/*$char)][];