$fin =~ (/^A(\d{8}).(\d{4})/);