C:\>perl -w strings.pl addbook.dat |
perl -p -e "s#(ELNK;plist;500)##;"
-e "s#(Eple;500 )(.+)$#\"$2\"#;"
-e "s#\"\n#\" #g;"
-e "s#[A-Za-z0-9-_@.]+$#\<$&\>#;"