$data =~ s/^\s*(.*?)\s*$/$1/mg;
$data =~ s/\r?\n//g;