$line=~s/^\'//; 
$line=~s/\'$//;