Perlとかさぁ・・・・
あれもsubstr使って切り出すしかないでしょ。そんなことない？