Ответ

green 31.07.2006 12:07

$str[^str.mid(0;^str.pos[/]-1)]

$parts[^str.split[/;h]] 
$parts.0