#!/usr/bin/perl -W

my(@list) = split (".", "file.jpg");
print "test\n";
print @list;
print "\n";
