#!/usr/bin/env perl

$name = "LinuxDays2013";

if ( $name =~ m/L[a-zA-Z]*([0-9]+)/ ) {
	print "$1" . "\n"
}