3 ms·can you show how it can be done in perl ?by nikils 18y agocan you show how it can be done in perl ?