$content = qq(?XML version="1.0');

if ($content =~/\?XML\s+version=[\'\"]1.0[\'\"](\s+encoding=[\'\"][^\' +\"]*[\'\"])?/){ 
    print"Input file is valid";
}else{ 
    print"File is invalid";
}
__END__
Input file is valid