Приветствую.

Как на Perl в кодировке UTF-8 регулярным выражением написать аналог:
$str = substr($str,1) if int(substr($str,0,1)) == 0;

Чтоб типа так было:
$str = $' if $str =~ /\n/;

Так не работает:
$str = $' if $str =~ /\0/;
$str = $' if $str =~ /\х0/;

$str = $' if $str =~ /^0/;

Нет, там 0 не как текстовый символ.
Там первый символ равный битовому нулю.

Байт с ASCII кодом 0?
В таком случае у меня работает $str = $' if $str =~ /^\0/;