как понять такое рег.выр?
$data=~m/^(\C{4})(\C*)/;

ну m это для обработки данных как однострочную символьную строку
а вот \C что такое?