Доброго времени суток уважаемые программисты Perl
Подскажите начинающему как извлеч из строковой переменной в другую строковою переменную последнии 6 сивлолов первой строковой переменной.
Заранее всем благодарен за помошь

• Работа со строковыми переменными в Perl,mirya, 13:58 , 12-Июл-04
  • Работа со строковыми переменными в Perl,edwin, 14:06 , 12-Июл-04
• Работа со строковыми переменными в Perl,ACCA, 00:14 , 16-Июл-04

$new_str = substr $old_str, length($old_str) - 6;

# or

($new_str) = $old_str =~ /(......)$/s;

Огромное спасибо за помошь.

perldoc -f substr