# Try to match the expected input line format (from "ls" output)
#
if  ("$_" =~ /^\-.+ ([0-9]+) ([A-Z|a-z]+ [ ]?[0-9]+ [ ]?[:|0-9]+) (.+)$/)
	{

	# Set some defaults to avoid potentially problematic missing fields
	#
	$file1 = "FULLNAME";
	$file2 = "BASENAME";
	$fext  = "NO EXTENSION";

	# Set file size, date and compelte filename variables
	$fsize =$1;
	$date = $2;
	$file1 = $3;

	if ("$file1" =~/^([\.]?.+)\.(.+))$/)
	     {
	         $file2 = $1;
	         $fext = $2;
              }