#!/usr/bin/perl -w # Extract substring. $string = "One Two Three"; $new_string = substr($string, -5); print "Substring is \"$new_string\".\n";