my $var = '-rwxr-xr-x  1 svcn-3  ymn-3  7618486 Jan 20 21:42 20040120-299-x49.exe';
my @newvar = split ' ', $var;
print "Update at $newvar[5] $newvar[6] at $newvar[7]";