#!/usr/bin/perl use strict; use warnings; my $inp; print "Enter the input file\n"; $inp = ; chomp ($inp); my (@date,@mn,@year) ; my $total =0; if( $inp=~/(\d+)\-(\d+)\-(\d+)/) { foreach my $a ($1) { #tried to split here dint worked @date =$1; } @mn =$2; @year =$3; print "@date,@mn,@year\n"; } print scalar(@date); print length(@date);