use strict;
use warnings;

my $string1 = '"18/02/2018"';
print $string1 . "\n" if ($string1 =~ m/^"{1}[^"{1}]/);

my $string2 = '"28/02/2018"';
print $string2 . "\n" if ($string2 =~ m/^"{1}[^"{1}]/);

exit;