0 Пользователей и 1 Гость просматривают эту тему.
#!/usr/bin/perl $_ = "\\x1fstring\\x1f";@a = split(/\\x1f/);print @a;