Джонатан Леффлер имеет правильный ответ, но вот пара вещей, которые расширяют ваши горизонты Perl:
use v5.10;
$_ = "102.111.114.119.97.114.100.95.118.115";
say "Version 1: " => eval;
say "Version 2: " => pack "W".(1+y/.//) => /\d+/g;
Выполнено, что печатает:
Version 1: forward_vs
Version 2: forward_vs
Как только вам станет ясно оба, вы можете нажать пробел, чтобы продолжить, или q, чтобы выйти. :)
РЕДАКТИРОВАТЬ: последний также может быть написано
pack "WW".y/.//,/\d+/g
Но, пожалуйста, не надо. :)