Select Code to Download

Select or download this
```
BME központi;+3614631111
```

#!perl
use strict; use warnings;
...
warn qq(tovcard all ok;\n);

__END__

Select or download this

BEGIN:VCARD
VERSION:2.1
...
TEL;VOICE;CELL:+3614631111
END:VCARD

Select or download this

perl -we 'while (<>) { if (/^\r\n\z/) {} elsif ($c) { $c=0; /^(.*);;;\
+r\n\z/ or die "nc $_"; $f=";CHARSET=UTF-8;ENCODING=QUOTED-PRINTABLE:"
+; print "N$f;$;$1;;;\r\nFN$f$1\r\n"; } elsif (/^N;/) { /^N;ENCODING=Q
+UOTED-PRINTABLE;CHARSET=UTF-8:;=\r\n\z/ or die; $c=1; } elsif (/^TEL;
+/) { /^TEL;[A-Z]+;(CELL:[+0-9#*p]+)\r\n/ or die qq(tel $_); print "TE
+L;CELL:$1\r\n"; } elsif (/^(BEGIN:|VERSION:|END:)/) { print } else { 
+die "parse $_" } }' backup.dat > backup.vcf

Select or download this

BEGIN:VCARD
VERSION:2.1
...
FN;CHARSET=UTF-8;ENCODING=QUOTED-PRINTABLE:BME=20k=C3=B6zponti
TEL;CELL:CELL:+3614631111
END:VCARD